home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Comm / yam / YAMGenesis.lha / YAMGenesis / debug / GenesisQuit.yam.deb < prev   
Text File  |  2001-10-21  |  3KB  |  89 lines
  1. /* GenesisQuit.yam - Quit Genesis if started from YAM.
  2.  *
  3.  * $VER: GenesisQuit.yam 1.01 (1.5.01) © H. van der Ree <hivdree@uwnet.nl>
  4.  */
  5.  
  6. OPTIONS RESULTS
  7. OPTIONS FAILAT 5
  8. SIGNAL ON FAILURE
  9. SIGNAL ON SYNTAX
  10.  
  11. IF ~OPEN('FH', 'RAM:GenesisOnline.debug', 'A') THEN
  12.   CALL OPEN('FH', 'RAM:GenesisOnline.debug', 'W')
  13. CALL WRITELN(FH, '')
  14. CALL WRITELN(FH, date('N') '-' time('N')||': GenesisQuit.yam.')
  15.  
  16. /* Don't quit if one of these applications is running */
  17. ports = "IBROWSE VOYAGER AMFTP.1 AWebControlPort ATC_MAIN ATC_TRADER.1"
  18.  
  19. interface = GETVAR(GENESISINTERFACE, "GLOBAL")
  20. CALL WRITELN(FH, date('N') '-' time('N')||': Used interface' interface||'.')
  21. genesisport = "GENESIS"
  22.  
  23. CALL WRITELN(FH, date('N') '-' time('N')||': Checking STARTEDBYYAM ..')
  24. action = GETVAR(STARTEDBYYAM, "GLOBAL")
  25. CALL WRITELN(FH, date('N') '-' time('N')||': content is' action||'.')
  26. IF action = "YES" THEN
  27. DO
  28.   CALL WRITELN(FH, date('N') '-' time('N')||': Looking for ports ...')
  29.   DO i = 1 TO WORDS(ports)
  30.     CALL WRITELN(FH, date('N') '-' time('N')||':  ' WORD(ports, i))
  31.     IF SHOW('P', WORD(ports,i)) THEN
  32.     DO
  33.       CALL WRITELN(FH, date('N') '-' time('N')||': Found port' WORD(ports, i))
  34.       CALL LastBits
  35.       CALL WRITELN(FH, date('N') '-' time('N')||': If this shows up then there is something seriously wrong!')
  36.     END
  37.   END
  38.  
  39.   CALL WRITELN(FH, date('N') '-' time('N')||': Checking port' genesisport||'.')
  40.   IF SHOW('P', genesisport) THEN
  41.   DO
  42.     CALL WRITELN(FH, date('N') '-' time('N')||': Found!')
  43.     CALL WRITELN(FH, date('N') '-' time('N')||': Changing ADDRESS to' genesisport||'.')
  44.     ADDRESS VALUE genesisport
  45.     CALL WRITELN(FH, date('N') '-' time('N')||': Checking online status')
  46.     ISONLINE interface
  47.     RCN = RC
  48.     CALL WRITELN(FH, date('N') '-' time('N')||': RC:' RCN||'.')
  49.     IF RCN = 0 THEN
  50.     DO
  51.       CALL WRITELN(FH, date('N') '-' time('N')||': Stop Genesis.')
  52.       QUIT
  53.       CALL WRITELN(FH, date('N') '-' time('N')||': DONE! RC:' RC||'.')
  54.     END
  55.   END
  56. END
  57.  
  58. LastBits:
  59.  
  60. CALL WRITELN(FH, date('N') '-' time('N')||': LastBits, deleting vars')
  61. CALL DELETEVAR(STARTEDBYYAM, "GLOBAL")
  62. CALL DELETEVAR(GENESISINTERFACE, "GLOBAL")
  63. CALL WRITELN(FH, date('N') '-' time('N')||': DONE!')
  64.  
  65. OPTIONS FAILAT 6
  66. CALL WRITELN(FH, date('N') '-' time('N')||': Delete T:#?.unp.')
  67. ADDRESS COMMAND 'delete >NIL: T:#?.unp T:#?.tmp T:msg.db T:qfu.rexx'
  68. CALL WRITELN(FH, date('N') '-' time('N')||': DONE!')
  69.  
  70. CALL WRITELN(FH, date('N') '-' time('N')||': Quited, go back to YAM....')
  71. CALL CLOSE(FH)
  72. EXIT 0
  73.  
  74. FAILURE:
  75. SIGNAL OFF FAILURE
  76. CALL WRITELN(FH, date('N') '-' time('N')||':   ERROR!!!')
  77. CALL WRITELN(FH, date('N') '-' time('N')||':   Line' SIGL SOURCELINE(SIGL))
  78. CALL WRITELN(FH, date('N') '-' time('N')||':   caused an error, RC='||RC)
  79. CALL CLOSE(FH)
  80. EXIT RC
  81.  
  82. SYNTAX:
  83. SIGNAL OFF SYNTAX
  84. CALL WRITELN(FH, date('N') '-' time('N')||':   SYNTAX ERROR!!!')
  85. CALL WRITELN(FH, date('N') '-' time('N')||':   Line' SIGL SOURCELINE(SIGL))
  86. CALL WRITELN(FH, date('N') '-' time('N')||':   caused an error, RC='||RC)
  87. CALL CLOSE(FH)
  88. EXIT RC
  89.